Le Yang: Le created both the poor example and the strong example maps for the assignment. 10 points
Madeleine Levin: Madeleine also created maps and formatted/organized the final document for submission. 10 points
Yoji Toriumi: Like the other two teammates Yoji created maps. He also created the base and GitHub connection for the assignment and also came up with the concept, pulling the data from the City of Cambridge’s website. 10 points
The whole team coordinated meetings, helped troubleshoot and worked together on the project! Total points: 30
All the data used in this assignment is extracted from City of Cambridge.
Basemap- Various
Polygons- Open Space
Points- Schools
pubschool <- read_sf("https://github.com/cambridgegis/cambridgegis_data/raw/main/Landmark/Public_Schools/LANDMARK_PublicSchools.geojson")
prischool <- read_sf("https://github.com/cambridgegis/cambridgegis_data/raw/main/Landmark/Private_Schools/LANDMARK_PrivateSchools.geojson")
openspace <- read_sf("https://github.com/cambridgegis/cambridgegis_data/raw/main/Recreation/Open_Space/RECREATION_OpenSpace.geojson")
This map shows polygon outlines of open spaces and point data that indicates the location of schools throughout Cambridge. However, without much color distinction or a legend it is difficult to guess what is being shown here.
Like prior images, this map also shows private and public schools in Cambridge and their relationship to open space. However, by only using dark colors, it can be difficult to distinguish one data point from another.
ggplot(openspace)+
annotation_map_tile(zoomin = 0, progress = "none", type = "cartodark")+
geom_sf(fill = "lightpink", alpha = 0.25, aes(color = "OPENSPACE"))+
geom_sf(data = prischool, size = 2, aes(color = "Private School"))+
geom_sf(data = pubschool, size = 2, aes(color = "Public School"))+
scale_color_manual(values = c ("NA","gray100", "gray55"), name = "")
This map uses different symbology and color to quickly inform viewers which schools in the area are public versus private. It also shows open space but does not highlight ownership. By focusing attention on school types, a viewer more quickly notices that Cambridge has many more private schools than public. While this map is simpler than the following two maps, it’s communication is the clearest.
ggplot(openspace)+
annotation_map_tile(zoomin = 0, progress = "none", type = "cartolight")+
geom_sf(fill = "darkolivegreen3", alpha = 0.75, aes(color = "OPENSPACE"))+
geom_sf(data = prischool, shape = 17, size = 2, aes(color = "Private School"))+
geom_sf(data = pubschool, shape = 15, size = 2, aes(color = "Public School"))+
scale_color_manual(values = c ("NA","blue", "firebrick1"), name = "")+
theme_void()
This map shows the location of private and public schools and their proximity to open spaces. It also indicates ownership over open space in Cambridge. It shows that every school has access to open space within a 5 minute walk.
ggplot(data = openspace) +
annotation_map_tile(zoomin = 0, progress = "none", type = "cartolight") +
geom_sf(data = openspace, aes(fill = OWNER)) +
geom_sf(data = pubschool, aes(color = "Public")) +
geom_sf(data = prischool, aes(color = "Private")) +
geom_sf(data = pubschool, size = 30, aes(color = "Public"), alpha = 1/15) +
geom_sf(data = prischool, size = 30, aes(color = "Private"), alpha = 1/15)+
scale_color_manual(values = c("Public" = "seagreen1", "Private" = "tomato", "Public" = "seagrean1", "Private" = "tomato"), name = "A Quartermile") +
theme_void() +
labs(caption = "Map tiles by OpenStreetMap")
This map shows schools as smaller points to pinpoint their location, then adds wider circles to (very roughly) estimate a short walking 1.5 minute distance. This map does not distinguish between owners of open space in Cambridge.
ggplot(data = openspace)+
annotation_map_tile(zoomin = 1, progress = "none", type = "stamenbw", alpha = .75)+
geom_sf(color = NA, alpha = 1/3, aes(fill="openspace"))+
geom_sf(data = pubschool, size = 1, alpha = 1, aes(color="pubschool")) +
geom_sf(data = prischool, size = 1, alpha = 1, aes(color="prischool")) +
geom_sf(data = pubschool, size = 10, pch = 21, alpha = .5, aes(pch="pubschool")) +
geom_sf(data = prischool, size = 10, pch = 21, alpha = .5, aes(pch="prischool")) +
scale_fill_manual(values = "chartreuse3", name = " ", labels = "Open Space") +
scale_color_manual(values = c("slateblue3", "tomato3"), labels = c("Public Schools", "Private Schools"), name = " ") +
theme_void()